home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO003.dsk / DEMOS / MORTGAGE.INFO.bas < prev    next >
BASIC Source File  |  2012-02-16  |  5KB  |  126 lines
  1. 1  GOTO 5000
  2. 2  GOTO 2000
  3. 10  HOME 
  4. 11  VTAB 2: HTAB 10: INVERSE : PRINT "AMMITORIZATION TABLE": NORMAL : PRINT : PRINT 
  5. 15 DIA = 0:DPA = 0
  6. 20 YEAR = 0
  7. 110  INPUT "AMOUNT OF LOAN: ";L
  8. 112  IF L = 0  THEN  VTAB 5: HTAB 17: INVERSE : PRINT "DEFAULT": NORMAL 
  9. 120  INPUT "PERCENTAGE (%) PER ANNUM: ";P
  10. 130  INPUT "NUMBER OF PERIODS PER ANNUM :";A
  11. 140  INPUT "NUMBER OF YEARS: ";N:N = N *12: REM  TOTAL # OF PAYMENTS
  12. 141 H = 0:R = (P/100)/A
  13. 142  IF L = 0  THEN  INPUT "MONTHLY PAYMENTS: ";M: GOTO 144
  14. 143  GOTO 148
  15. 144 L = M *(1 -(1 +R) ^ -N)/R:L =  INT(L): GOTO 149
  16. 148 M = L *R/(1 -(1 +R) ^ -N):M = ( INT(M *100))/100
  17. 149  HOME : VTAB 7
  18. 150  PRINT "PERIOD  MORTAGE  INTEREST  PRINCIPAL": FOR X = 1 TO 35: HTAB X: PRINT "-";: NEXT X: PRINT "-"
  19. 162  VTAB 21
  20. 163  PRINT : PRINT "---------------------------------------": PRINT "<ESC> TO ESCAPE - <RTN> TO CONTINUE:"
  21. 165  VTAB 1
  22. 170  PRINT "MORTAGE:$";L: PRINT "IN.RATE: ";P;"%": PRINT "PERIODS: ";N
  23. 173  PRINT "PAYMENT:$";M
  24. 174  VTAB 2: HTAB 20: PRINT "PRINCIPIL:$";DIA
  25. 175  VTAB 4: HTAB 21: PRINT "INTEREST:$";DPA
  26. 176  VTAB 1: HTAB 25: PRINT "COST:$"; INT((M *N) -L)
  27. 177  POKE 34,8: POKE 35,21
  28. 180 MT = L
  29. 185 PE = 0
  30. 190  FOR Y = 1 TO  INT(N/12) +1
  31. 192 YEAR = YEAR +1
  32. 193  VTAB 3: HTAB 25: PRINT "YEAR: ";YEAR
  33. 195  VTAB 9
  34. 200  FOR Z = 1 TO 12
  35. 210 PE = PE +1:I = MT *R:PR = M -I
  36. 220  HTAB 2: PRINT PE;: HTAB 9: PRINT  INT(MT);: HTAB 18: PRINT  INT(I);: HTAB 30: PRINT  INT(PR)
  37. 225 DIA = DIA + INT(PR)
  38. 226 DPA = DPA + INT(I)
  39. 230 MT = MT -PR
  40. 235  IF MT <0  THEN 241
  41. 240  NEXT Z
  42. 241  VTAB 2: HTAB 31: PRINT DIA
  43. 242  VTAB 4: HTAB 31: PRINT DPA
  44. 243  IF Y *Z -12 >N  THEN 300
  45. 244  IF PE = N  THEN 300
  46. 245  VTAB 23: HTAB 37
  47. 250  GET Q$: IF Q$ = ""  THEN 250
  48. 270  IF Q$ =  CHR$(13)  THEN  HOME : NEXT Y
  49. 280  IF Q$ =  CHR$(27)  THEN 300
  50. 290  PRINT "<CTRL-G>": GOTO 245
  51. 300  POKE 34,0: POKE 35,24
  52. 305  PRINT "<CTRL-G><CTRL-G><CTRL-G>"
  53. 310  VTAB 23: HTAB 37
  54. 320  GET Q$: IF Q$ = ""  THEN 320
  55. 330  IF Q$ =  CHR$(13)  THEN 10
  56. 340  IF Q$ =  CHR$(27)  THEN  GOTO 2000
  57. 350  PRINT "<CTRL-G>": GOTO 310
  58. 1000  REM      MORTAGE TABLET
  59. 1010  TEXT : HOME 
  60. 1020  VTAB 2: HTAB 10: INVERSE : PRINT "MORTAGE SPREAD SHEET": NORMAL : PRINT 
  61. 1030  INPUT "LENGTH OF MORTAGE IN YEARS: ";YEARS
  62. 1040  INPUT "LOWEST INTERSEST RATE OBTAINABLE: ";L%
  63. 1050  INPUT "PERCENTAGE INCREMENTS: ";I
  64. 1060  INPUT "MINIMUM MORTAGE: ";MIN
  65. 1070  INPUT "MORTAGE INCREMENTS: ";INC
  66. 1079 M = MIN -INC
  67. 1080  HOME : PRINT "MORTAGE IS BASED ON A ";: INVERSE : FLASH : PRINT YEARS;: NORMAL : PRINT " YEAR TERM"
  68. 1090  VTAB 3: PRINT "MORT.";: HTAB 8: PRINT L%;: HTAB 13: PRINT L% +I;: HTAB 18: PRINT L% +(I *2);: HTAB 23: PRINT L% +(I *3);: HTAB 28: PRINT L% +(I *4);: HTAB 33: PRINT L% +(I *5)
  69. 1100  FOR X = 1 TO 39: HTAB X: PRINT "-";: NEXT X: PRINT "-"
  70. 1105 V = 5
  71. 1110  FOR X = 1 TO 15
  72. 1120 M = M +INC
  73. 1130  VTAB V: PRINT M:H = 8
  74. 1140  FOR II = L% TO (L% +5 *I)  STEP I
  75. 1150 PMT =  INT(M *(II/1200)/(1 -(1 +(II/1200)) ^( -(YEARS *12))))
  76. 1160  VTAB V: HTAB H: PRINT PMT:H = H +5: NEXT II:V = V +1: NEXT X
  77. 1170  FOR X = 1 TO 39: HTAB X: PRINT "-";: NEXT X: PRINT "-"
  78. 1180  PRINT "<ESC> TO ESCAPE - <RTN> TO CONTINUE:"
  79. 1190  VTAB 22: HTAB 37: GET A$
  80. 1200  IF A$ =  CHR$(13)  THEN  HOME : GOTO 1080
  81. 1210  IF A$ =  CHR$(27)  THEN  GOTO 2000
  82. 1220  PRINT "<CTRL-G>": GOTO 1190
  83. 2000  HOME 
  84. 2010  VTAB 10: HTAB 10: PRINT "1- AMMORORTIZATION TABLE"
  85. 2015  VTAB 12: HTAB 10: PRINT "2- MORTAGE TABLE"
  86. 2020  VTAB 14: HTAB 10: PRINT "3- EXIT"
  87. 2025  VTAB 18: HTAB 10: PRINT "SELECTION:"
  88. 2030  VTAB 18: HTAB 21: GET A$
  89. 2040 A =  VAL(A$)
  90. 2050  IF A = 1  THEN 10
  91. 2060  IF A = 2  THEN 1000
  92. 2065  IF A = 3  THEN  HOME : END 
  93. 2070  PRINT "<CTRL-G>": GOTO 2030
  94. 5000  REM   INSTRUCTIONS
  95. 5005  TEXT : HOME : VTAB 10: HTAB 8: PRINT "PROGRAM BY: ANDY RAUER": PRINT : PRINT : HTAB 13: PRINT "DATE:JUNE 84": FOR X = 1 TO 2000: NEXT X: HOME 
  96. 5010  TEXT : HOME 
  97. 5020  FOR X = 1 TO 39: HTAB X: INVERSE : PRINT " ";: NEXT X
  98. 5030  FOR X = 1 TO 23: HTAB 40: PRINT " ";: NEXT X
  99. 5040  FOR X = 39 TO 1  STEP  -1: VTAB 23: HTAB X: PRINT " ": NEXT X
  100. 5050  VTAB 1: FOR X = 1 TO 22: PRINT " ": NEXT X
  101. 5055  NORMAL 
  102. 5060  VTAB 3: HTAB 13: INVERSE : PRINT ".               ."
  103. 5065  HTAB 13: PRINT "                 "
  104. 5067  HTAB 13: PRINT "  MORTAGE HELPER "
  105. 5069  HTAB 13: PRINT ".               ."
  106. 5070  HTAB 13: PRINT "                 "
  107. 5075  NORMAL 
  108. 5080  VTAB 13: HTAB 10: PRINT "PROGRAM BY ANDY RAUER"
  109. 5090  VTAB 15: HTAB 16: PRINT "JUNE 3,1984"
  110. 5100  VTAB 20: HTAB 16: INVERSE : PRINT "HIT ANY KEY": NORMAL 
  111. 5110  VTAB 20: HTAB 28: GET A$: IF A$ = ""  THEN 5110
  112. 5120  HOME 
  113. 5130  PRINT : HTAB 14: INVERSE : PRINT "INSTRUCTIONS": NORMAL 
  114. 5140  PRINT : PRINT "AMMITORIZATION TABLE:": PRINT 
  115. 5150  PRINT "THIS OPTION ENABLES THE USER TO ": PRINT "CALCULATE SPECIFIC MONTHLY PATMENTS BY"
  116. 5160  PRINT "REQUESTED DATA OR TO DETERMINE THE ": PRINT "AMOUNT OF THE MORTAGE BASED ON YOUR"
  117. 5170  PRINT "MONTHLY AFFORDABILITY. THE LATTER": PRINT "OPTION CAN BE SELECTED BY ENTERING A 0"
  118. 5180  PRINT "TO THE QUESTION 'AMOUNT OF LOAN'."
  119. 5190  PRINT : PRINT : PRINT "MORTAGE TABLE:"
  120. 5195  PRINT 
  121. 5200  PRINT "THIS OPTION ENABLES YOU TO OUTPUT A"
  122. 5210  PRINT "TABLE OF LOAN OR MORTAGE PAYMENTS OVER"
  123. 5220  PRINT "A PARTICULAR LOAN AND INTEREST SPREAD."
  124. 5230  VTAB 22: HTAB 7: INVERSE : PRINT "HIT ANY KEY TO CONTINUE": NORMAL 
  125. 5240  VTAB 22: HTAB 33: GET A$: IF A$ = ""  THEN 5240
  126. 5250  HOME : GOTO 2000